﻿Imports Microsoft.Office.Interop
Imports Microsoft.Office.Interop.Word
Public Class CARTAACEITE
    Dim ObjWord As Microsoft.Office.Interop.Word.Application

    Private Sub Substitui_Var(ByVal Header As String, ByVal Data As String)
        With ObjWord.Selection.Find
            .ClearFormatting()
            .Text = Header
            .Execute(Forward:=True)
        End With
        Clipboard.Clear()
        Clipboard.SetText(Data)
        ObjWord.Selection.Paste()
        Clipboard.Clear()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim salvarComo As SaveFileDialog = New SaveFileDialog()
        Dim caminho As DialogResult
        Dim Arquivo As String
        Dim a As System.String
        If Date.Now.Month = 1 Then
            a = "JANEIRO"
        ElseIf Date.Now.Month = 2 Then
            a = "FEVEREIRO"
        ElseIf Date.Now.Month = 3 Then
            a = "MARÇO"
        ElseIf Date.Now.Month = 4 Then
            a = "ABRIL"
        ElseIf Date.Now.Month = 5 Then
            a = "MAIO"
        ElseIf Date.Now.Month = 6 Then
            a = "JUNHO"
        ElseIf Date.Now.Month = 7 Then
            a = "JULHO"
        ElseIf Date.Now.Month = 8 Then
            a = "AGOSTO"
        ElseIf Date.Now.Month = 9 Then
            a = "SETEMBRO"
        ElseIf Date.Now.Month = 10 Then
            a = "OUTUBRO"
        ElseIf Date.Now.Month = 11 Then
            a = "NOVEMBRO"
        Else
            a = "DEZEMBRO"
        End If
        If RichTextBox1.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Favor preencher todos so campos")
        Else
            salvarComo.CheckFileExists = False
            salvarComo.InitialDirectory = "\\SERVIDOR1\Publico Administrativo\Público Administrativo\CARTA ACEITE"
            salvarComo.Title = "Arquivos Word |*.docx |"
            caminho = salvarComo.ShowDialog
            Arquivo = salvarComo.FileName

            On Error GoTo trata_erro

            ObjWord = New Word.Application
            ObjWord.Documents.Open("\\SERVIDOR1\Publico Administrativo\Público Administrativo\antigo\CARTA ACEITE.docX")


            Call Substitui_Var("@DIA", Date.Now.Day)
            Call Substitui_Var("@MES", a)
            Call Substitui_Var("@ANO", Date.Now.Year)
            Call Substitui_Var("@SACADO", TextBox1.Text)
            Call Substitui_Var("@CONTATO", TextBox2.Text)
            Call Substitui_Var("@CEDENTE", TextBox3.Text)
            Call Substitui_Var("@TITULO", RichTextBox1.Text)
            Call Substitui_Var("@SACADO2", TextBox1.Text)
            ObjWord.ActiveDocument.SaveAs(Arquivo)
            ObjWord.Quit()
            MsgBox("Contrato gerado com sucesso!" & Environment.NewLine & "Em : " & Arquivo, vbInformation, " Contrato Gerado ")
            System.Diagnostics.Process.Start("WINWORD.exe", Arquivo & ".DOCX")
            ObjWord = Nothing
            Exit Sub
trata_erro:
            ObjWord.Quit()
            MsgBox("Ocorreu um erro durante o processamento " & " - Erro numero : " & Err.Number)
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "TÍTULO: " & TextBox4.Text & "     " & "VENCIMENTO: " & MaskedTextBox1.Text & "     " & "VALOR: " & Format(TextBox5.Text, "CURRENCY")
        Else
            RichTextBox1.Text = RichTextBox1.Text & Environment.NewLine & "TÍTULO: " & TextBox4.Text & "     " & "VENCIMENTO: " & MaskedTextBox1.Text & "     " & "VALOR: " & Format(TextBox5.Text, "CURRENCY")
        End If
        TextBox4.Text = ""
        TextBox4.Focus()
        TextBox5.Text = ""
        MaskedTextBox1.Text = ""
    End Sub
End Class